From 37643ee522ce0d5ced2b9fe759fb83e404a387b5 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 7 Mar 2001 19:02:28 +0000 Subject: [PATCH] (imenu--create-keymap-2): Revert use of menu-item for now, to avoid problems with binding imenu directly to a mouse event. --- lisp/imenu.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/imenu.el b/lisp/imenu.el index 440758693e8..b799c68c6e2 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -646,7 +646,13 @@ as a way for the user to ask to recalculate the buffer's index alist." (imenu--menubar-select ',item)) (cons '(nil) item)))) (cons (car item) - (list 'menu-item (car item) end :key-sequence nil)))))) + (cons (car item) end) + ;; Fixme: Using this (to speded up menus), instead of + ;; the line above, breaks the case where `imenu' is + ;; bound to a mouse key. The code in imenu needs + ;; fixing somehow to cope. + ;; (list 'menu-item (car item) end :key-sequence nil) + ))))) alist))) ;; If COMMANDS is non-nil, make a real keymap @@ -1075,6 +1081,8 @@ for more information." (and index-item (progn (push-mark) + ;; Fixme: sort this out so that we can use menu-item with + ;; :key-sequence in imenu--create-keymap-2. (let* ((is-special-item (listp (cdr index-item))) (function (if is-special-item -- 2.30.2